/* GUI CONVERTED from rcrp03.i (converter v1.75) Tue Apr 10 12:05:24 2001 */
/* rcrp03.i - Release Management Customer Schedules                           */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.6.2.3 $                                                         */
/*V8:ConvertMode=Report                                                       */
/* REVISION: 7.0      LAST MODIFIED: 01/29/92           BY: WUG *F110*        */
/* REVISION: 7.3      LAST MODIFIED: 12/18/92           BY: WUG *G462*        */
/* REVISION: 7.2      LAST MODIFIED: 04/21/94           BY: WUG *FN56*        */
/* REVISION: 7.3      LAST MODIFIED: 09/29/95           BY: VRN *G0X9*        */
/* REVISION: 8.6      LAST MODIFIED: 10/07/97           BY: bvm *K0MK*        */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane          */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan         */
/* REVISION: 9.1      LAST MODIFIED: 07/19/00   BY: *N0GF* Mudit Mehta        */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00   BY: *N0KP* Mark Brown         */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* $Revision: 1.6.2.3 $    BY: Jean Miller        DATE: 03/22/01  ECO: *P008*     */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* SCHEDULE AUTH SUMMARY INCLUDE */

/* ********** Begin Translatable Strings Definitions ********* */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

&SCOPED-DEFINE rcrp03_i_2 "Effective!End"
/* MaxLen: Comment: */

&SCOPED-DEFINE rcrp03_i_3 "Effective!Start"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

if first-of(sod_contr_id) then do:

   {gprun.i ""rcrp03a.p"" "(input recid(sod_det))"}

   hifab_qty = 0.
   hiraw_qty = 0.
   hifab_rlse_id = "".
   hiraw_rlse_id = "".
   hifab_strt = ?.
   hiraw_strt = ?.
   hifab_end = ?.
   hiraw_end = ?.

end.

display
   sch_rlse_id
   sch_eff_start column-label {&rcrp03_i_3}
   sch_eff_end   column-label {&rcrp03_i_2}
   space(4)
   sch_fab_qty
   sch_fab_strt
   sch_fab_end
   space(4)
   sch_raw_qty
   sch_raw_strt
   sch_raw_end
with width 132 STREAM-IO /*GUI*/ .

if sch_raw_qty > hiraw_qty then do:
   hiraw_qty = sch_raw_qty.
   hiraw_strt = sch_raw_strt.
   hiraw_end = sch_raw_end.
   hiraw_rlse_id = sch_rlse_id.
end.

if sch_fab_qty > hifab_qty then do:
   hifab_qty = sch_fab_qty.
   hifab_strt = sch_fab_strt.
   hifab_end = sch_fab_end.
   hifab_rlse_id = sch_rlse_id.
end.

if last-of(sod_contr_id) then do:
   down 2.

   display
      getTermLabel("HIGH_AUTHORIZATIONS",29) + ":" @ sch_rlse_id WITH STREAM-IO /*GUI*/ .

   down 1.

   display
      hifab_rlse_id @ sch_rlse_id
      hifab_qty @ sch_fab_qty
      hifab_strt @ sch_fab_strt
      hifab_end @ sch_fab_end WITH STREAM-IO /*GUI*/ .

   down 1.

   display
      hiraw_rlse_id @ sch_rlse_id
      hiraw_qty @ sch_raw_qty
      hiraw_strt @ sch_raw_strt
      hiraw_end @ sch_raw_end WITH STREAM-IO /*GUI*/ .

   page.

end.
